﻿Public Class FUNC_UC
    Inherits System.Web.UI.UserControl

    Protected Sub cadFunc(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim func As New RhFuncionario, dbcon As New AccessDB

        func.attCollection.findAttREF("admissao").attV() = admissao01Box.Text
        func.attCollection.findAttREF("equipe").attV() = equipe01.Text
        func.attCollection.findAttREF("status").attV() = status01.Text
        func.attCollection.findAttREF("nome").attV() = nome01.Text

        If func.saveData() Then
            Server.Transfer("~/Pages/Success.aspx")
        Else
            Server.Transfer("~/Pages/Fail.aspx")
        End If

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

End Class